#!/usr/bin/perl

while($line=<STDIN>) {
	chomp($line);
	@fields = split(/\s+/,$line);
	if($fields[3]==1) {
	}
	else {
		print $line."\n";
	}
}
